home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib07.dsk / SCROLL TEST ROUTINE.bas < prev    next >
BASIC Source File  |  2023-02-26  |  830b  |  31 lines
  1. 10  REM  SCROLL TEST ROUTINE
  2. 20  TEXT : HOME 
  3. 30  INPUT "SCROLL UP ADDRESS: ";SU
  4. 40  INPUT "SCROLL DOWN ADDRESS: ";SD
  5. 50  INPUT "SCROLL RIGHT ADDRESS: ";SR
  6. 60  INPUT "SCROLL LEFT ADDRESS: ";SL
  7. 70  INPUT "WINDOW LEFT: ";WL
  8. 80  INPUT "WINDOW WIDTH: ";WW
  9. 90  INPUT "WINDOW TOP: ";WT
  10. 100  INPUT "WINDOW BOTTOM: ";WB
  11. 110  HOME 
  12. 120  POKE 32,WL: POKE 33,WW: POKE 34,WT: POKE 35,WB
  13. 130  HOME 
  14. 140  INPUT T$
  15. 150  IF  LEN(T$) >0  THEN 140
  16. 160  REM  WINDOW FILLED
  17. 170  GET T$
  18. 180  IF T$ < >"U"  THEN 200
  19. 190  CALL SU: GOTO 170
  20. 200  IF T$ < >"D"  THEN 220
  21. 210  CALL SD: GOTO 170
  22. 220  IF T$ < >"R"  THEN 140
  23. 230  CALL SR: GOTO 170
  24. 240  IF T$ < >"L"  THEN 160
  25. 250  CALL SL: GOTO 170
  26. 260  IF T$ < >"G"  THEN 280
  27. 270  POKE  -16304,1: GOTO 170
  28. 280  IF T$ < >"T"  THEN 300
  29. 290  POKE  -16303,1: GOTO 170
  30. 300  IF T$ < >"X"  THEN 170
  31. 310  TEXT : END